rnYJ ASSEMBLER VERSION 2.21 PAGE 1 

.MAIM. •- Parallel port test for the DSC 3/4 

PORTTEST 

09 OOO.I. version = j. 

10 0000 revision-- 

11 „ pabs 

12 . phex 

13 0100 „ i oc lOOh 

1 4 

15 ! Pro S3 ram: PORTTEST 
16 

17 ? This program outputs a byte pattern ( start! ns 

IS ; with 00 and ending with FFh ) from the first para- 

1 9 ; 1 J e 1 p o r t . t h e n r- e a d s i t i n f r o m t h e f i r s t p a r- a - 

2 ; Del p o i- 1 » a n d c o m p a r e s t h e t w o b y t e p a 1 1 ems, 
*-l ; If they are not identical? an error message is 
■*'- ^ 5 p r i n t e d t a t h e c o n sole,, T h e p r o c e d u r e i s t h e n 
-~' : -'' S reversed? and the same comparison test is made. 
^4 » If an error is found-, a message is output 
■^ . ? to the console j and also to an error buffer (that 

26 ; starts at 500h). Error buffer writing is achieved 

27 ; bv a error flag check at CONOUT. 

V 

2"? ; Console commands are as follows." 

30 ; 

31 » S - Print out a summary of all errors 

32 ; that have occurred thus far. 

34 ; Q "■■■-■ Optionally quit the program 

? ? -- Print a command summary 

7 

; NOTE: A special connector is needed for this test. 

'■ . D. Stein 11/10/80 

JrriP START 

v Port addresses and definitions 

; 1st p a r a 1 1 e 1 p o r t a d d r 

3 2nd parallel port addr 

; Parallel I/O port addr 

? bit pattern byte 
i 

; Name of current port 

3 under test. 

; 01 = port 1 

; 02 = port 2 



57 



40 






41 






42 


1 00 


C3 0109 


43 






44 






45 






46 


0001 




47 


0002 




48 


0008 




49 


0103 


00 


50 


0104 


00 


51 


1 05 




CT--I 


0105 


00 


53 






54 






Ernr 






56 






57 






nri~i 
■_ii_" 






59 


0500 




60 






61 


0106 




/ ""'■ 


1 06 


0000 


63 







portl 


= 


01 


port 2 


= 


02 


PIOAD 


= 


OS 


' bitpat." 


. byte 


00 


test-pats 


. byte 


00 


port name 








.byte 


00 



? Error Data addresses and definitions 

e r r b u f . = 5 h ; B u f f e r- f o r h o 1 d i n s 

? test e r r o r s . 
erbuf addr-s 

.word OOh ; Current addr in 

? error buffer. 
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AIM. 



Parallel pert test for the DSC 3/4 



PORTTEST 




09 


1 OS 


00 


10 






11 






12 






13 


000D 




14 


000A 




15 






16 


0109 




17 






18 


1 09 


31 0427 


19 






20 


010C 


DB01 


21 


1 OE 


DB02 


23 


1 1 


3E00 


24 


0112 


32 0103 


25 
26 






27 


0115 


21 0500 


o o 


0118 


22 0106 


30 


01 IB 




31 


01 IB 


3600 




0.1. ID 


2o' 


:Z* C ' 


01 IE 


7C 


34 


01 IF 


FEBO 


35 


0121 


20F8 


36 






37 


0123 


3E00 


o o 


1 25 


32 0108 


3? 




X 


41 






42 






43 






44 


0128 




45 


0128 


21 0230 


46 


01 2D 


CD 02FC 


47 


012E 


21 02F7 


43 


0131 


CD 02FC 


49 


0134 




50 


0134 


21 02FA 


51 


0137 


CD 02FC 


52 


013A 


3A 0103 




01 3D 


CD 0344 


54 


0140 


21 0243 




0148 


CD 02FC 


56 


0146 


3E01 


57 


014S 


32 0105 


58 


014B 


DB08 


59 


014D 


CB6F 


60 


014F 


20FA 


61 


0151 


■ 3A 0103 


62 


0154 


4F 


/■; ;~i 


0155 


D301 



e r r f 1 s » . b y t e h 5 F 1 a g f a i- w r i t i n g t o 

; the error buffer. 
; FF = set = write to bu- 



ODh ; ascii carriage return 
OAh ; ascii line feed 



cr 


= (j 


If 


= . 


START: 




; Ini tial ize 




lxi 


si=>7 stack 


in 


p o r 1 1 


in 


port2 


mvi 


A ■, 


sta 


bit pat 


lxi 


1 -1 ? e r r b u f 


shld 


erbufaddr 


., . b u f fills 




mvi 


I v IjOO 


inx 


H 


mov 


A,H 


cpi 


OBOh 


j r n z 


. . b u f f i 1 1 


rnvi 


A, 00 


sta 


e r r f 1 g 



5 l< ill a n y p r e s e n t p o r t 

; contents. 

; Initial ize bit pattern 

5 bYte to 00000000 



ini t i a 1 i z e t h e e r r b u f f e r 



; fill the error buffer 
; wit h n u 1 1 s ., 

; f i 1 1 e d u p t o B h y e t ? 



; error buffer write flag 

; = reset == off 



? BEGINNING OF MAIN TEST LOOP 



STRTTES 


;Ts 






lxi 


H? test ins g 




cal 1 


prtmsg 




lxi 


l-l,crlf 




cal 1 


pi- tins g 


pi TESTS 








ixi 


Hi crrtn 




cal 1 


prtmsg 




Ida 


bitpat 




cal 1 


prtbi t 




lxi 


Hi spacel 




cal 1 


prtmsg 




mvi 


A, 01 




sta 


port name 


u u J. " 


in 


PIOAD 




b i t 


5, A 




■ j r n z 


. . 1 




1 da 


b it pat 




mov 


C,A 




o u t 


portl 



; P r i n t t h e h e a d e r 

; and space down. 

; reset cursor to line strt 

; p r i n t t h e > a 1 1 e r '• n t o c o n 



; portname : --portl 

; Wait for port 1 readY 



; Get the bit pattern bYte 
; Output the bit pattern. 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.2.1. 
.MAIM. - Parallel port test for the DSC 3/4 
PORTTEST 



PAGE 



09 


0157 


DB08 


1 


0159 


CB5F 


11 


015B 


28FA 


12 


015D 


DB02 


.1.3 


015F 


32 0104 


14 


0162 


CD 01E2 


15 






1 6 


0165 




17 


1 65 


3E02 


18 


0167 


32 0105 


19 


016A 


DB08 




016C 


CB77 


21 


016E 


20FA 


.-y~, 


0170 


3A 0103 


1^'.-' 


0173 


4F 


24 


0174 


D302 


25 


0176 


DB08 


26, 


0173 


CB67 


27 


017A 


28FA 


•"■ o 


017C 


DB01 


29 


017E 


32 0104 


30 
31 


0181 


CD 01E2 


OO 


0184 


21 0103 


34 


0187 


34 


36 


0188 




37 


0188 


CD 03 A 7 


O O 


01 SB 


D2 0134 


39 


018E 


CD 03B5 


40 


0191 


FE53 


41 


0193 


2806 


42 


0195 


FE51 


43 


0197 


2814 


44 


1 99 


1832 


45 






46 


01 9B 


21 02F7 


47 


019E 


CD 02FC 


48 


01 Al 


CD 0307 


49 


01A4 


21 02F.7 


50 


01A7 


CD 02FC 


51 


01AA 


C3 0123 


53 


1 AD 


21 02F7 


54 


01 BO 


CD 02FC 


55 


01B3 


21 025A 


56 


01B6 


CD 02FC 


57 


01B9 


CD 03B5 


58 


i BC 


F5 




01BD 


CD 03CF 


60 


1 CO 


Fl 


61 


01 CI 


FE59 


»™« .£*! 


01C3 


CA 0000 


63 


01C6 


FE4E 



. . z" 


in 


FIOAD 




b i t 






• j r ;•: 


,. . 2 




in 


port 2 




sta 


test pat 




cal 1 


TEST 


F2TEJ 


:;T: 






m v i 


A 7 02 




sta 


port name 


. „ 3 ! 


in 


PI GAD 




b i t 


6, A 




•j r n ;i 


. . '-.i 




Ida 


bit pat 




mo v 


C, fit 




u t 


port 2 


„ .4: 


in 


PIOAD 




b i t 


4, A 




•j r-3 


. .4. 




i n 


p o r 1 1 




sta 


testpat 




cal 1 


TEST 




Ixi 


H? bitpat 




i n r 


M 


CHECt 


CCON ■■ 






..-a 1 1 


CONSTAT 




J n c 


p. t TEST 




call 


CON IN 




cpi 


o 




■j r z 


. .5 




cpi 


■"Q-" 




J rz 


. . 6 




Jmpr 


n a / 


cr » 


lxi 


Hvcrlf 




cal 1 


prtrnss 




cal 1 


p r t e r r 




lxi 


H,crlf 




cal 1 


prtrnss 




JrriP 


STRTTEST 




lxi 


H.crlf 




cal 1 


prtmss 




lxi 


. H.QUiTmss 




cal 1 


prtmss 




call 


CON IN 




push 


PSW 




cal 1 


CONOUT 




POP 


PSW 




cpi 


-Y-- 




J :•: 


WBOOT-i 




cpi 


■'N-- 



; read in the bit pattern 

; and save it. 

; Compare bitpat 2< test pal 



5 portnarrie=port2 

; Get the bit pattern byte, 
; Output the bit pattern., 



•5 Read in the bit pattern 

; and save it. 

; Compare bitpat S< testb.it 



; Increment to next pattern 

; A n y c o n s o 1 e i n p u t ? 

•! M o 7 c o n t i n u e t e s t i n s . 

; Y e s 7 r e a d t h e c h r . 

5 User wants error list? 

; Yes. 

•; D o e s u s e r w a n t t o q u i t '? 

5 Yes. 

; No. P r i n t a help su mrna r y . 

; Space down a line. 

; P r i n t t h e e r r s t o c o n sole 

; Space down a line. 

" resume test ins 

; Spa c e d o w n a I i n e . 

; P r i n t qui t v e r i f v m s b 

; and set a console chr-,. 

; Echo the character. 

; Do we quit? 

S Yes. 
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09 


01C8 


CA 


0128 


10 


01CB 


18E0 


11 








12 


01 CD 


21 


02F7 


13 


01 DO 


CD 


02FC 


14 


01D3 


21 


0283 


15 


01D6 


CD 


02FC 


16 


01D9 


21 


02F7 


17 


01DC 


CD 


02FC 


18 


01DF 


C3 


0128 


19 








20 








21 








24 








25 








26 









31 



34 
35 
36 
37 



40 
41 
42 
43 
44 
45 

46 
47 

48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 



01E2 
01E2 
01E5 
01 E6 
01E9 
01 EA 
01 EC 

01 ED 
01EF 
01F2 
01F5 
01F8 
01FB 
01FE 
020:1. 
0204 
0207 
020 A 
020D 
02.1.0 
0213 
0216 
0218 

02 IB 
021E 
0221 



3A 


0104 


47 






3A 


0103 


90 






FEOO 

1*"* O 




3EFF 




32 


0. 


108 


21 


0222 


CD 


0:i 


2FC 


3A 


0105 


CD 


oi 


5'ji.ki 


21 


o: 


243 


CD 


0:1 


ZFC 


3A 


0103 


CD 


0' 


344 


21 


O'l 


245 


CD 


0.' 


2FC 


3A 


0104 


CD 


o; 


344 


3E00 




O.ti. 


0: 


108 


21 


02F7 


CD 


02FC 



. j z 


STRTTEST 


J m p r 


II U O 


Ixi 


H,crl f 


cal 1 


prtmss 


Ixi 


H,HELPmsg 


cal 1 


prtmss 


Ixi 


H.crl f 


cal 1 


prtmss 


Jmp 


STRTTEST 



; No. Resume testing 
; Bad entry. Ask again. 

; Space down a line. 

; Print the help summary. 

; Space down a line 

5 and resume test ins. 



5 END OF MAIM TEST LOOP 



Subroutine: 
Regs in 2 
Regs outs 
Destroyed!! 



TEST 
none 
n o n e 
B 



7 



Compare the sent byte (bitpat) 
with the received byte ( test pat ) . 

If an error is found, turn on the error-buffer-write 
flag? so the message is saved in the error buffer. 
•EST: 

testpat ; B =■ received bvte 

B , A 

bitpat ; A - sent bvte 

B J A = A - B 

; Are bvtes identical? 
? Yes. Return 

AjOFFIt 

err fig ; Set the error flag 

Hj portmsg 

prtmss » Print which port sot the <irr- 



Ida 

mov 

Ida 

s u b 

cpi 

rz 

mvi 

sta 

Ixi 

cal 1 

Ida 

cal 1 

Ixi 

cal 1 

Ida 

cal 1 

Ixi 

cal 1 

Ida 

call 

mvi 

sta 

Ixi 

cal 1 

ret 



port name 
prtbvt 
Hj spacel 
prtmss 
bitpat • 
Frtbit 
l-L errrnss 
prtmss 
testpat 
prtbit ■ 
A , 00 

errfls • 
H,crTf ! 
prtmss 



Print the sent bit pattern 



Print the recvd bit pattern. 

Reset the error flas 
and space down 



? Messages 



TDL ZSO CP/M DISK ASSEMBLER 
. MA I N ., - Pa r a 11 e 1 p o r t te s t 
PORTTEST 



VERSION 2.21 
•for the DSC 3/4 



PAGE 



09 
1 

11 
12 
13 
14 
15 
16 
17 
13 
19 
20 
21 



24 



0230 
0243 
0245 
025A 
026C 
0233 
029E 
02E9 
02D0 
02DD 
02F7 
02FA 



0D0A4552524F portmsgs . asciz 
0D0A54657374 tes tmsg : . as c i :•: 
2000 s pace 1 "> « as c i z 
2073656E742C errrnsss 
0D0A20446F20 QU I Tms 3 s 
657869742050 
0D0A20504F52 HELPmsg s 



0D0A202D2D2D 

0D0A20202020 

6572726F7220 

ODOA20202020 

ODOAOO 

ODOO 



c r I I- : 
cr-rt n "• 



a s c 1 2 
asc::i. i 
asciz 
asci i 
asci i 
asci i 
asci i 
asc i i 
asci;-: 
a s c i z 



CcrllClfD-'ERROR port ■' 

C c r • 3 C 1 f 3 •"" Tes t i n si p a t 1 e r n •" 

•"" sent -i but received •'" 
II c r 3 L" If 3 •' D o y o u wis h t a ' 
'exit PORTEST? (Y/N) •- " 
C c r 3 C 1 f 3 ' PORTTEST COMMAND 

C c r 3 C 1 f 3 " 

Ccr-3i:if3'' S - Print t 

•''error summary'' 

Ccr:Elf3 > Q - 

Co- 3 CI f3 

Ccr3 



SUMMARY' 
he •- 
Optional qui t '" 



? U t i 1 i t v S u b r o u t i n e s 



30 


02FC 




31 


02FC 


7E 


•_■;'. t^ 


02FD 


B7 


O *"■ 


02FE 


CS 


34 


02FF 


E5 


35 


0300 


CD 03CF 


36 


0303 


El 


37 


0304 


jt- '-Z 1 


•"» o 


0305 


1 8F5 


39 






40 






41 






42 






43 






44 






45 


0307 




46 


0307 


21 0500 


47 


030A 


E5 


43 


03 OB 


CD 03A7 


49 


030E 


300B 


50 


03 1 


CD 03B5 


51 


0313 


CD 03A7 


52 


0316 


30FB 


53 


0313 


CD 03B5 


54 


031B 


El 


55 


03 1C 


7E 


56 


03 ID 


FEOO 


57 


031F 


CS 


53 


0320 


E5 


59 


0321 


CD 03CF 


60 


0324 


El 


61 


0325 


,£~ ■«■ 


62 


0326 


13E2 


63 







; Pr 


int 


a me 


ssasie 


prtm 


sg s 










mov 


A,M 






or a 


A 






rz 








p u s h 


H 






cal 1 


CONOLIT 






P P 


II 






inx 


H. 






JiTipr 


prtmss 



5 get next char 
; return if zero 

; increment to next char 



P r i n t t h e e r r o r- b u f f e r t o t h e c o n sole-, 
pausing if a console characer is input — 
a n d r e s u m i n s w h e n a n o t h e r c o n s o 1 e c h a r a c t e r 
is received. 



pr 



terr; 








Ixi 


H i e r r h u i 


check 


s push 


l-l 




cal 1 


CONSTAT 




J r n c 


. . 




cal 1 


CON IN 


wa i t : 


call 


CONSTAT 




J r n c 


. . wait 




cal 1 


CON IN 


0: 


POP 


It 




mov 


A,M 




cpi 


00 




r z 






pus h 


l-l 




cal 1 


CONOUT 




POP 


l-l 




inx 


H 




Jmpr 


. ,. c h e c k 



I s a c o n c h r r e a d y ? 

No,, R e s u m e p r i n t i n s „ 

Fie ad the chr. 

Is another chr ready? 

No,. 

Yes. R e a d c h r a n d c o n tin u e . 

Get the next error buffer chr 



Loop back for next chr 
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.MAIN,. - Para 1 "I el port test for- the DSC 3/4 

PGRTTEST 



09 






1 






11 






13 






14 


032S 




15 


0328 


F5 


16 


0329 


07 


17 


032A 


07 


18 


032B 


07 


19 


032C 


07 


20 


032D 


CD 0335 


21 


0330 


Fl 


■i?C>ti£> 


0331 


CD 0335 


*"' *""' 


0334 


C9 


24 






•-inr 






26 


0335 




27 


0335 


E60F 


'7*o 


0337 


FE0A 


29 


0339 


FA 033E 


30 


033C 


C607 


31 


033E 


C630 


O ■"> 


0340 


CD 03CF 


•Z* ■— ' 


0843 


C9 






:.:: / 






•*• w 






'.'' 

40 


0344 




41 


0344 


F5 


42 


0345 


E680 


43 


0347 


OF 


44 


0348 


OF 


45 


0349 


OF 


46 


034A 


OF 


47 


034B 


OF 


48 


034C 


OF 


49 


034D 


OF 


50 


034E 


C630 


51 


0350 


CD 03 CF 


rr*.-. 


t~\'~ ,cr '~ t 


Fl 


■-'.i^. 


^•j.**— ••™. 


53 


0354 


F5 


•_i4 


0355 


E640 


55 


0357 


OF 


56 


0358 


OF 


57 


0359 


OF 


58 


035A 


OF 


59 


035B 


OF 


60 


035C 


OF 


61 


035D 


C630 


&2l 


035F 


CD 03CF 


63 


0362 


Fl 



push 


PSW 


r 1 c 




r 1 c 




rlc 




r 1 c 




cal 1 


p r t n i b 


POP 


PSW 


cal 1 


prtniD 


ret 





; Print the A register as a hex number 

prtbvt: 

; save A 

; s;iet upper nibble 



; print it 

; restore A 

; pr i n t 1 owe r n i bb 1 e 



; Print a nibble 
p r t n i b ■ 

ani OFh ; mask to set nibble 

cpi 10 ; convert to ASCII 

• j m . » 1 

adi 7 

u . 1 " adi ■"'-)"' 

call CONOUT 

ret 



S u b r o u t i n e s p r t b i t 

Re sis ins A == byte to be printed -'bit by bit' 

of a bvte 



; Print 


out al ' 


1 S bits 


prtbi ts 








push 


PSW 




ani 


128 




rrc 






r r c 






rrc 






r r c 






rrc 






r •• r c 






r r c 






adi 


•"' o •" 




call 


CONOUT 




POP 


PSW 




push 


PSW 




ani 


64 




r r c 






rrc 






r r c 






r r c 






r r c 






r r c 






adi 


•'0'" 




cal 1 


CONOUT 




POP 


PSW 
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09 0363 


F5 




10 0364 


. E620 




11 0366 


OF 




12 0367 


OF 




13 0368 


OF 




14 0369 


OF 




15 036 A 


OF 




16 036B 


1-630 




17 036D 


CD 03CF 




IS 0370 


Fl 




19 0371 


F5 




20 0372 


E610 




21 0374 


OF 




22 0375 


OF 




23 0376 


OF 




24 0377 


, ■ OF 




25 037S 


C630 




26 03 7 A 


CD 03CF 




27 037D 


Fl 




28 0S7E 


F5 




29 037F 


E608 




30 0381 


OF 




31 0382 


OF 




32 0383 


OF 




33 0384 


C630 




34 0386 


CD 03CF 




35 0389 


Fl 




36 038A 


F5 




37 03SB 


E604 




33 038D 


OF 




39 038E 


OF 




40 038F 


C630 




41 0391 


CD 03CF 




42 0394 


Fl 


• 


43 0395 


F5 




44 0396 


E602 




45 0398 


OF 




46 0399 


C630 




47 039B 


CD 03CF 




48 039E 


Fl 




49 039F 


E601 




50 03A1 


C630 




51 03A3 


CD 03CF 




52 03A6 


C9 




53 






54 




^ .-_ _- -.« „™ -- . „~ .™ 


55 




; Call h 


56 0001 




WBOOT 


cr*y 






58 03A7 




COMSTATs 


59 03 A 7 


21 03B3 




60 03AA 


E5 




61 03AB 


2 A 0001 




62 03AE 


1 1 0003 




63 03B1 


1 9 





push 


PSW 


ani 


32 


rrc: 




r r c 




r r c 




r r c 




rrc 




adi 


■'' "' 


cal 1 


COMOUT 


pop 


PSW 


p u s h 


PSW 


an i 


16 


r r c: 




r i- c 




r r- c 




r r c 




adi 


"' Q .•■ 


cal 1 


COMOUT' 


POP 


PSW 


push 


PSW 


ani 


08 


r- r c 




r- r c 




r r c 




adi 


-' -' 


cal 1 


COMOUT 


POP 


PSW 


push 


PSW 


ani 


04 


r i- c 




rrc 




adi 


-' " 


cal 1 


COMOUT 


POP 


PSW 


push 


PSW 


ani 


02 


r r c 




adi 


•'" " 


cal 1 


COMOUT 


POP 


PSW 


ani 


01 


adi 


•"' "' 


cal 1 


COMOUT 


pet 





; Call hi os directly us. in si WBOOT in 1 oiu memory 

1 



lxi Hj » ., 1 ? return to „„1 

push H 

T hi d WBOOT 

lxi D>03h 

dad D 



TDL Z80 CF-VM DISK ASSEMBLER VERSION 2.21 PAGE 

.MAIM.. - Parallel port test for the DSC 3/4 

PORTTEST 

pc hi 

. .1: rrc ; rotate into carry 

ret ; and return 



09 


:>3B2 


E9 




10 








11 


:>3B3 


OF 






D3B4 


C9 




13 








14 


33B5 






15 


D3B5 


21 


03 CI 


1 6 


D3B8 


E5 




17 


D3B9 


2A 


0001 


18 


D3BC 


11 


0006 


.1. 9 


DSBF 


19 




20 


33C0 


E9 




21 








22 


33C 1 


FE03 


•~iO 


03C3 


CA 


0000 


24 


33C6 


FE61 


25 


03C8 


F8 




26 


33C9 


FE7B 


27 


03CB 


FO 




•"> o 


03CC 


D620 


29 


03CE 


C9 




C U 


03CF 






32 


03CF 


F5 




O c* 


03D0 


3A 


01 OS 


Oil 


03D3 


FEFF 


35 


03D5 


200A 


36 


03D7 


2A 


0106 


37 


03DA 


Fl 




*T* C 1 


03DB 


F5 




39 


03DC 


77 




40 


03DD 


j:- O' 




41 


03DE 


]dud 


0106 


42 








43 


03E1 


Fl 




44 


03E2 


4F 




45 


03E3 


2A 


0001 


46 


03E6 


11 


0009 


47 


03E9 


19 




43 


03EA 


E9 




49 








50 








51 








52 








53 


03EB 






54 


0427 


00 




55 








56 









CON IN! 



CONOUTs 



Ixi H>..2 5 return to ..2 

push H 

1 h 1 d WBOOT 

Ixi D,06h 

dad D 

p c h 1 

c pi 3 ? 3 is Control -C 

J2 ? Wboot if Control -C 

cpi ■'"a"' ? make result UPPER CASE 

rrn 

cpi 'z'+l 

r p 

sui •"' a ■"--•'' A - "' 

ret 



push PSW ; Save the chr to be output. 

1 da <Brrf l.s 

cpi OFFh 5 Is the error fl as set? 

jrnz ...3 ? Mo. Just output the. chr. 

1 hi d erbufaddr ; Yes. Put chr in the 

pop PSW 

push PSW 

inov Mi A ; error buffer. 

inx H 5 Increment and store 

shld erbufaddr ; the error buffer address. 

pop PSW ; Restore the chr. 

rnov C 7 A 5 Output the chr to the 

Ihld WBOOT ; console. 

Ixi D, 09h 

dad D 

pchl 



. blkb 60 
s t a c k " . b y t e ; r o o m f o r s t a c k 

» e n d 
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-ih-i-m- SYMBOL TABLE -mhh-h- 
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BITPAT 


0103 


CHECKC 


01 38 


COM IN 


03B5 




CONOUT 


I)3CF 


COMSTA 


03A7 


CR 


OOOD 


CRLF 


02F7 




CRRTN 


I>2FA 


ERBUFA 


0106 


ERRBUF 


0500 


ERRFLG 


0108 




ERRMSG 


3245 


MELPMS 


0283 


LF 


OOOA 


PI TEST 


0134 




P2TEST 


D 165 


PI GAD 


00 OS 


P0RT1 


0001 


P0RT2 


0002 




PORTMS 


1)222 


PORTNA 


1 05 


PRTBIT 


0344 


PRTBYT 


0328 




PR'TERR 


D307 


PRTMSG 


02FC 


PRTNIB 


0335 


QUITMS 


025A 




REVIS1 


1)000 


SPACE 1 


0243 


STACK 


0427 


START 


0109 




STRTTE 


-J123 


TEST 


01E2 


TESTMS 


0230 


TESTPA 


1 04 




VERS. TO 


."'001 


WBOOT 


0001 


.BLNK. 


00002 03 > 


I .DATA. 


0000* 


X 


.PROG. 


1)000 



Cross Reference of PORTTEST 11/23 1 1 ■■ 05 

BITPAT 0103 ••- 001,49* 002,24 002,52 002,61 003,14 003,22 003,30 

3 , 3 3 4,31 4 , 3 8 4 , 5 
CHECKC 013S - 003,36* 

COM IN 03B5 ■■•■ 003,39 003,57 005,50 005,53 008,14* 
CQIMQUT 03CF - 001,27 003,59 005,35 005,59 006,32 006,51 006,62 

007 , 1 7 007 , 26 007 , 34 007 , 4 1 007 , 47 007 , 5 1 008 , 3 1 * 
C0N3TA 03A7 - 003,37 005,43 005,51 007,58* 
CR OOOD - 002,13* 005,10 005,11 005,14 005,16 005,17 005,18 

005,20 005,21 005,22 
CRLF 02F7 - 002,47 003,46 003,49 003,53 004,12 004,16 004,58 

005,21* 
CRRTN 02FA - 002,50 005,22* 

ERBUFA 0106 -■ 001,61* 002,28 008,36 008,41 
EiRRBUF 0500 - 001,59* 002,27 005,46 

ERRFLG 0108 - 002,09s 002,33 004,43 004,57 008,33 
ERRMSG 0245 - 004,52 005,13* 
HELPMS 0283 •- 004,14 005,16* 
LF OOOA --• 002,14* 005,10 005,11 005,14 005,16 005,17 005,18 

005,20 005,21 
PI TEST 0134 - 002,49* 003,38 
P2TEST 0165 - 003,16* 

PI GAD 0008 - 001,48* 002,58 003,09 003,19 003,25 
P0RT1 0001 - 001,46* 002,20 002,57 002,63 003,28 
P0RT2 0002 - 001,47* 002, ,21 003,12 003,18 003,24 
PORTMS 0222 - 004,44 005,10* 

PORTMA 0105 - 001,51* 002,57 002,57* 003,18 003,18* 004,46 
PRTBIT 0344 - 002,53 004,51 004,55 006,36 006,40* 
PRTBYT 0328 - 004, 47 006, 14* 
PRTERR 0307 - 003,48 005,45* 
PRTMSG 02FC - 002,46 002,48 002,51 002,55 003,47 003,50 003,54 

003,56 004,13 004,15 004,17 004,45 004,49 004,53 

004,59 005,30* 005,38 
PRTMIB 0335 - 006,20 006,22 006,26* 
QUITNS 025 A - 003,55 005,14* ■ 
REV I SI 0000 ■-- 001,10* 

SPACE 1 0243 ■- 002,54 004,48 005,12* 
STACK 0427 - 002,18 008,54* 008,54 
START 0109 - 001,42 002,16* 

STRTTE 0128 - 002,44* 003,51 004,09 004,18 
TEST 01E2 -- 001,23 001,60 002,42 003,14 003,30 004,22 004,27 

004,35* 
TESTMS 0230 - 002,45 005,11* 

TESTPA 0104-001,50* 003,13 003,14 003,29 004,32 004,36 004,54 
VERS 10 0001 - 001,09* 

WBOOT 0001 - 003,62 007,55 007,56* 007,61 008,17 003,23 008,45 
. BLMK. 0000 - 000,00 
-DATA. 0000 - 000,00 
3 PRGG,. 0000 - 000,00 



